// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .CS}

//-------------MAIN---------------
0A95: enable_thread_saving 
thread 'RSYSTEM'
0ADF: "THEALTH" "HEALTH ~1~" 
0ADF: "ARMO" "ARMOR ~1~" 
0ADF: "WEAPONS" "WEAPON ~1~"  
 
wait 6
Model.LOAD(#AK47)
Model.LOAD(#M4)
Model.LOAD(#SNIPER)
Model.LOAD(#CUNTGUN)
Model.LOAD(#MICRO_UZI)
Model.LOAD(#SHOTGSPA)
Model.LOAD(#TEC9)
Model.LOAD(#MP5LNG)
Model.LOAD(#SAWNOFF)
Model.LOAD(#COLT45)
Model.LOAD(#SILENCED)
Model.LOAD(#DESERT_EAGLE)
Model.LOAD(#CHROMEGUN)
Model.LOAD(#KATANA)
Model.LOAD(#BAT)
Model.LOAD(#KNIFECUR)
Model.LOAD(#SPRAYCAN)
Model.LOAD(#HEATSEEK)
Model.LOAD(#ROCKETLA)
Model.LOAD(#MINIGUN)
Model.LOAD(#FLAME)
Model.LOAD(#GRENADE)
Model.LOAD(#TEARGAS)
Model.LOAD(#MOLOTOV)
Model.LOAD(#BRASSKNUCKLE)
Model.LOAD(#GOLFCLUB)
Model.LOAD(#NITESTICK)
Model.LOAD(#SHOVEL)
Model.LOAD(#POOLCUE)
Model.LOAD(#CHNSAW)
Model.LOAD(#FIRE_EX)
038B: load_requested_models 

while true
    wait 0 
    if 
       Player.Defined($PLAYER_CHAR)
    jf continue 
    if 00E1:   player 0 pressed_key 6 
    THEN 
        if 0AD2: 30@ = player $PLAYER_CHAR targeted_actor //IF and SET 
        THEN 
            if 056D:   actor 30@ defined 
            then
                if not Actor.Dead(30@)
                THEN 
                    27@ = Actor.Health(30@)
                    04DD: 31@ = actor 30@ armour 
                    0470: 29@ = actor 30@ current_weapon
                    0639: AS_actor 30@ rotate_to_actor $PLAYER_ACTOR                                                
                    03F0: enable_text_draw 0                                                                        
                    038E: draw_box_position 50.0 125.0 size 80.0 104.0 RGBA 0 0 0 148
                    0665: get_actor 30@ model_to 20@ 
    
                    if and
                      20@ > -1
                      287 > 20@
                    then
                        0AD3: 17@v = format "NOR%X" 20@                              
                        0349: set_text_draw_font 3                                                                      
                        0340: set_text_draw_RGBA 255 165 0 255                                                          
                        033F: set_text_draw_letter_size 0.3 0.8                                                         
                        033E: set_draw_text_position 23.0 80.0 GXT 17@v                                                  
                        0349: set_text_draw_font 3                                                                      
                        0340: set_text_draw_RGBA 208 16 8 255                                                           
                        033F: set_text_draw_letter_size 0.3 0.8                                                         
                        045A: draw_text_1number 23.0 88.0 GXT 'THEALTH' number 27@                                      
                        0349: set_text_draw_font 3                                                                      
                        0340: set_text_draw_RGBA 195 195 195 255                                                        
                        033F: set_text_draw_letter_size 0.3 0.8                                                         
                        045A: draw_text_1number 23.0 96.0 GXT 'ARMO' number 31@                                         
                        0349: set_text_draw_font 3                                                                      
                        0340: set_text_draw_RGBA 0 252 252 255                                                          
                        033F: set_text_draw_letter_size 0.3 0.8                                                         
                        045A: draw_text_1number 23.0 104.0 GXT 'WEAPONS' number 29@
                    end                                     
                    0494: get_joystick 0 direction_offset_to 0@ 3@ 4@ 5@                                            
                    if                                                                                              
                      0 > 3@                                                                                        
                    then                                                                          
                        07AF: $PLAYER_GROUP = player $PLAYER_CHAR group                                             
                        wait 5                                                                                    
                        Actor.RemoveReferences(30@)                                                                 
                        0631: put_actor 30@ in_group $PLAYER_GROUP                                                  
                        0209: 20@ = random_int_in_ranges 253 1000                                                   
                        0209: 19@ = random_int_in_ranges 10 100                                                     
                        07DD: set_actor 30@ attack_rate 19@ // previously known as temper_to                        
                        Actor.Health(30@) = 20@                                                                     
                        Actor.SetImmunities(30@, 0, 1, 1, 1, 1)                                                     
                        0209: 6@ = random_int_in_ranges 286331153 -1717986919                                       
                        8@ = Marker.CreateAboveActor(30@)                                                           
                        Marker.SetColor(8@, 6@)                                                                     
                        048F: actor 30@ remove_weapons                                                              
                        wait 5                                                                                      
                        0209: 22@ = random_int_in_ranges 22 38                                                      
                        Actor.GiveWeaponAndAmmo(30@, 22@, 1E17)                                                     
                    end
                end
            end                                                                                       
        END
    END
end
